home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Newton / Programming / Newt-Slurpee / Newt Devenv 3.0.sit / graphic0.nwt < prev    next >
MacBinary  |  1995-01-22  |  3.8 KB  |  [TEXT/R*ch]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: graphic0.nwt

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Jan 22 06:21:13 1995, modified Sun Jan 22 06:21:13 1995, creator BBEdit, type ASCII, 2833 bytes "graphic0.nwt" , at 0xb91 670 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[R*ch]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 67 72 61 70 68 69 | 63 30 2e 6e 77 74 00 00 |..graphi|c0.nwt..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 52 2a 63 | 68 01 00 00 00 00 00 00 |.TEXTR*c|h.......|
|00000050| 00 00 00 00 00 0b 11 00 | 00 02 9e ab 47 f0 29 ab |........|....G.).|
|00000060| 47 f0 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |G.).....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 74 ee 00 00 |........|....t...|
|00000080| 4e 6f 74 65 73 0d 7b 6c | 61 62 65 6c 73 3a 20 27 |Notes.{l|abels: '|
|00000090| 4e 49 4c 2c 20 76 69 65 | 77 46 6f 6e 74 3a 20 31 |NIL, vie|wFont: 1|
|000000a0| 30 32 34 31 7d 20 2f 2f | 20 6e 69 6c 3d 55 6e 66 |0241} //| nil=Unf|
|000000b0| 69 6c 65 64 2c 20 6f 72 | 20 73 70 65 63 69 66 79 |iled, or| specify|
|000000c0| 20 61 20 66 6f 6c 64 65 | 72 2c 20 65 2e 67 2e 2c | a folde|r, e.g.,|
|000000d0| 20 27 42 75 73 69 6e 65 | 73 73 2e 20 20 72 65 6d | 'Busine|ss.  rem|
|000000e0| 6f 76 65 20 76 69 65 77 | 46 6f 6e 74 20 66 6f 72 |ove view|Font for|
|000000f0| 20 63 75 72 72 65 6e 74 | 20 53 74 79 6c 65 73 20 | current| Styles |
|00000100| 64 65 66 61 75 6c 74 0d | 2f 2f 45 52 41 53 45 21 |default.|//ERASE!|
|00000110| 20 69 6e 20 6f 72 64 65 | 72 20 74 6f 20 65 72 61 | in orde|r to era|
|00000120| 73 65 20 65 78 69 73 74 | 69 6e 67 20 65 6e 74 72 |se exist|ing entr|
|00000130| 69 65 73 20 69 6e 20 74 | 68 69 73 20 66 6f 6c 64 |ies in t|his fold|
|00000140| 65 72 20 66 69 72 73 74 | 0d 0d 67 72 61 70 68 69 |er first|..graphi|
|00000150| 63 30 2e 6e 77 74 20 2d | 2d 20 53 6c 75 72 70 65 |c0.nwt -|- Slurpe|
|00000160| 65 20 66 6f 72 6d 61 74 | 0d 31 2f 31 2f 39 35 0d |e format|.1/1/95.|
|00000170| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 34 2c 20 |Copyrigh|t 1994, |
|00000180| 31 39 39 35 20 53 2e 20 | 57 65 79 65 72 2e 20 20 |1995 S. |Weyer.  |
|00000190| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|000001a0| 76 65 64 20 57 6f 72 6c | 64 77 69 64 65 2e 0d 54 |ved Worl|dwide..T|
|000001b0| 6f 20 62 65 20 64 69 73 | 74 72 69 62 75 74 65 64 |o be dis|tributed|
|000001c0| 20 6f 6e 6c 79 20 77 69 | 74 68 20 4e 65 77 74 20 | only wi|th Newt |
|000001d0| 32 2e 35 20 70 61 63 6b | 61 67 65 0d 0d 69 6e 74 |2.5 pack|age..int|
|000001e0| 72 6f 64 75 63 74 6f 72 | 79 20 4e 65 77 74 20 67 |roductor|y Newt g|
|000001f0| 72 61 70 68 69 63 73 20 | 65 78 61 6d 70 6c 65 73 |raphics |examples|
|00000200| 0d 0d 73 6f 75 72 63 65 | 73 20 66 6f 72 3a 20 70 |..source|s for: p|
|00000210| 6f 6c 79 2c 20 70 6f 6c | 79 32 2c 20 70 6f 6c 79 |oly, pol|y2, poly|
|00000220| 73 70 69 2c 20 73 71 75 | 69 72 61 6c 2c 20 63 43 |spi, squ|iral, cC|
|00000230| 75 72 76 65 2c 20 68 6f | 75 73 65 2c 20 72 65 63 |urve, ho|use, rec|
|00000240| 74 0d 0d 73 65 65 20 67 | 72 61 70 68 69 63 31 2e |t..see g|raphic1.|
|00000250| 6e 77 74 20 66 6f 72 3a | 20 73 71 75 69 72 61 6c |nwt for:| squiral|
|00000260| 32 20 28 69 6e 74 65 72 | 72 75 70 74 69 62 6c 65 |2 (inter|ruptible|
|00000270| 20 76 65 72 73 69 6f 6e | 29 2c 20 64 43 75 72 76 | version|), dCurv|
|00000280| 65 2c 0d 66 72 61 63 74 | 61 6c 2c 20 68 69 6c 62 |e,.fract|al, hilb|
|00000290| 65 72 74 2c 20 66 6f 75 | 72 4e 65 77 74 73 20 28 |ert, fou|rNewts (|
|000002a0| 6d 75 6c 74 69 70 6c 65 | 20 4e 65 77 74 73 29 2c |multiple| Newts),|
|000002b0| 20 74 72 65 65 0d 0d 73 | 65 65 20 4e 65 77 74 54 | tree..s|ee NewtT|
|000002c0| 75 72 54 20 2d 2d 20 69 | 6e 74 65 72 61 63 74 69 |urT -- i|nteracti|
|000002d0| 76 65 20 74 75 74 6f 72 | 69 61 6c 20 66 6f 72 20 |ve tutor|ial for |
|000002e0| 6d 6f 72 65 20 64 65 73 | 63 72 69 70 74 69 6f 6e |more des|cription|
|000002f0| 0d 0d 54 6f 20 6d 69 6e | 69 6d 69 7a 65 20 74 65 |..To min|imize te|
|00000300| 78 74 20 65 6e 74 72 79 | 2c 20 75 73 65 20 74 68 |xt entry|, use th|
|00000310| 65 20 53 6c 75 72 70 65 | 65 20 75 74 69 6c 69 74 |e Slurpe|e utilit|
|00000320| 79 20 61 6e 64 20 61 20 | 74 65 72 6d 69 6e 61 6c |y and a |terminal|
|00000330| 20 65 6d 75 6c 61 74 6f | 72 20 74 6f 0d 74 72 61 | emulato|r to.tra|
|00000340| 6e 73 66 65 72 20 74 68 | 69 73 20 74 65 78 74 20 |nsfer th|is text |
|00000350| 66 69 6c 65 20 61 73 20 | 70 61 72 61 67 72 61 70 |file as |paragrap|
|00000360| 68 73 20 69 6e 20 74 68 | 65 20 4e 6f 74 65 70 61 |hs in th|e Notepa|
|00000370| 64 2e 20 20 54 68 65 20 | 66 6f 6c 64 65 72 20 69 |d.  The |folder i|
|00000380| 6e 20 32 6e 64 20 6c 69 | 6e 65 0d 69 73 20 63 75 |n 2nd li|ne.is cu|
|00000390| 72 72 65 6e 74 6c 79 20 | 73 65 74 20 6f 6e 20 6e |rrently |set on n|
|000003a0| 69 6c 20 28 55 6e 66 69 | 6c 65 64 29 3b 20 73 65 |il (Unfi|led); se|
|000003b0| 6c 65 63 74 20 73 61 6d | 65 20 66 6f 6c 64 65 72 |lect sam|e folder|
|000003c0| 20 69 6e 20 4e 65 77 74 | 20 74 6f 20 6c 6f 61 64 | in Newt| to load|
|000003d0| 2e 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 70 6f |...-----|-----.po|
|000003e0| 6c 79 32 0d 2f 2f 3a 70 | 6f 6c 79 32 20 28 35 2c |ly2.//:p|oly2 (5,|
|000003f0| 38 30 2c 33 36 30 2f 35 | 2c 30 29 0d 2f 2f 3a 70 |80,360/5|,0).//:p|
|00000400| 6f 6c 79 32 20 28 35 2c | 38 30 2c 31 38 30 2d 31 |oly2 (5,|80,180-1|
|00000410| 38 30 2f 35 2c 30 29 0d | 2f 2f 3a 70 6f 6c 79 32 |80/5,0).|//:poly2|
|00000420| 20 28 74 69 6d 65 73 2c | 64 69 73 74 2c 64 65 67 | (times,|dist,deg|
|00000430| 2c 39 30 29 0d 66 75 6e | 63 28 6e 73 69 64 65 73 |,90).fun|c(nsides|
|00000440| 2c 6c 65 6e 2c 61 6e 67 | 2c 61 6e 67 32 29 0d 2f |,len,ang|,ang2)./|
|00000450| 2f 20 70 6f 6c 79 20 77 | 69 74 68 20 61 6e 20 65 |/ poly w|ith an e|
|00000460| 78 74 72 61 20 74 75 72 | 6e 20 61 74 20 65 6e 64 |xtra tur|n at end|
|00000470| 20 66 6f 72 20 73 71 75 | 69 72 61 6c 20 26 20 73 | for squ|iral & s|
|00000480| 71 75 69 72 61 6c 32 0d | 2f 2f 20 61 6c 73 6f 2c |quiral2.|// also,|
|00000490| 20 61 6e 67 20 70 72 65 | 63 6f 6d 70 75 74 65 64 | ang pre|computed|
|000004a0| 20 26 20 70 61 73 73 65 | 64 0d 2f 2f 20 61 73 73 | & passe|d.// ass|
|000004b0| 75 6d 65 73 20 6e 73 69 | 64 65 73 20 61 6c 72 65 |umes nsi|des alre|
|000004c0| 61 64 79 20 63 68 65 63 | 6b 65 64 0d 62 65 67 69 |ady chec|ked.begi|
|000004d0| 6e 0d 09 6c 6f 63 61 6c | 20 69 3b 0d 09 66 6f 72 |n..local| i;..for|
|000004e0| 20 69 3a 3d 31 20 74 6f | 20 6e 73 69 64 65 73 0d | i:=1 to| nsides.|
|000004f0| 09 64 6f 20 62 65 67 69 | 6e 0d 09 09 3a 67 6f 28 |.do begi|n...:go(|
|00000500| 6c 65 6e 29 3b 20 3a 74 | 75 72 6e 28 61 6e 67 29 |len); :t|urn(ang)|
|00000510| 3b 0d 09 09 65 6e 64 3b | 0d 09 3a 74 75 72 6e 28 |;...end;|..:turn(|
|00000520| 61 6e 67 32 29 3b 0d 65 | 6e 64 0d 2d 2d 2d 2d 2d |ang2);.e|nd.-----|
|00000530| 2d 2d 2d 2d 2d 0d 70 6f | 6c 79 0d 2f 2f 3a 70 6f |-----.po|ly.//:po|
|00000540| 6c 79 20 28 34 2c 31 30 | 30 29 0d 2f 2f 3a 70 6f |ly (4,10|0).//:po|
|00000550| 6c 79 20 28 74 69 6d 65 | 73 2c 64 69 73 74 29 0d |ly (time|s,dist).|
|00000560| 2f 2f 6c 6f 63 61 6c 20 | 69 3b 20 66 6f 72 20 69 |//local |i; for i|
|00000570| 3a 3d 33 20 74 6f 20 74 | 69 6d 65 73 20 64 6f 20 |:=3 to t|imes do |
|00000580| 3a 70 6f 6c 79 28 69 2c | 64 69 73 74 29 0d 2f 2f |:poly(i,|dist).//|
|00000590| 3a 70 6f 6c 79 28 52 61 | 6e 64 6f 6d 28 33 2c 31 |:poly(Ra|ndom(3,1|
|000005a0| 35 29 2c 52 61 6e 64 6f | 6d 28 31 30 2c 32 30 29 |5),Rando|m(10,20)|
|000005b0| 29 0d 66 75 6e 63 20 28 | 6e 73 69 64 65 73 2c 6c |).func (|nsides,l|
|000005c0| 65 6e 29 0d 69 66 20 6e | 73 69 64 65 73 3e 30 0d |en).if n|sides>0.|
|000005d0| 74 68 65 6e 20 3a 70 6f | 6c 79 32 28 6e 73 69 64 |then :po|ly2(nsid|
|000005e0| 65 73 2c 20 6c 65 6e 2c | 20 33 36 30 2f 6e 73 69 |es, len,| 360/nsi|
|000005f0| 64 65 73 2c 20 30 29 0d | 65 6c 73 65 20 3a 62 65 |des, 0).|else :be|
|00000600| 65 70 28 29 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |ep().---|-------.|
|00000610| 73 71 75 69 72 61 6c 0d | 2f 2f 3a 73 71 75 69 72 |squiral.|//:squir|
|00000620| 61 6c 20 28 31 30 2c 37 | 35 29 0d 2f 2f 3a 73 71 |al (10,7|5).//:sq|
|00000630| 75 69 72 61 6c 20 28 74 | 69 6d 65 73 2c 64 69 73 |uiral (t|imes,dis|
|00000640| 74 29 0d 2f 2f 3a 61 64 | 64 4e 65 77 74 28 27 5b |t).//:ad|dNewt('[|
|00000650| 5b 6e 65 77 74 31 2c 2d | 35 35 2c 37 35 2c 31 5d |[newt1,-|55,75,1]|
|00000660| 2c 5b 6e 65 77 74 32 2c | 35 35 2c 37 35 2c 32 5d |,[newt2,|55,75,2]|
|00000670| 2c 5b 6e 65 77 74 33 2c | 35 35 2c 2d 37 35 2c 31 |,[newt3,|55,-75,1|
|00000680| 5d 2c 5b 6e 65 77 74 34 | 2c 2d 35 35 2c 2d 37 35 |],[newt4|,-55,-75|
|00000690| 2c 32 5d 5d 2c 6e 69 6c | 2c 6e 69 6c 2c 6e 69 6c |,2]],nil|,nil,nil|
|000006a0| 29 0d 2f 2f 6e 65 77 74 | 31 3a 70 6f 6c 79 32 28 |).//newt|1:poly2(|
|000006b0| 35 2c 34 30 2c 31 34 34 | 2c 30 29 0d 2f 2f 3a 73 |5,40,144|,0).//:s|
|000006c0| 71 75 69 72 61 6c 20 28 | 38 2c 34 30 29 0d 2f 2f |quiral (|8,40).//|
|000006d0| 3a 63 43 75 72 76 65 20 | 28 36 2c 34 2c 30 29 0d |:cCurve |(6,4,0).|
|000006e0| 66 75 6e 63 20 28 6e 75 | 6d 2c 6c 65 6e 29 0d 2f |func (nu|m,len)./|
|000006f0| 2f 20 64 72 61 77 20 3c | 6e 75 6d 3e 20 73 71 75 |/ draw <|num> squ|
|00000700| 61 72 65 73 0d 2f 2f 20 | 65 61 63 68 20 6f 66 20 |ares.// |each of |
|00000710| 73 69 7a 65 20 3c 6c 65 | 6e 3e 0d 2f 2f 20 61 66 |size <le|n>.// af|
|00000720| 74 65 72 20 65 61 63 68 | 2c 20 74 75 72 6e 20 33 |ter each|, turn 3|
|00000730| 36 30 2f 6e 75 6d 0d 69 | 66 20 6e 75 6d 3e 30 0d |60/num.i|f num>0.|
|00000740| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 6c 6f 63 61 |then beg|in..loca|
|00000750| 6c 20 69 2c 20 61 6e 67 | 32 3a 3d 33 36 30 2f 6e |l i, ang|2:=360/n|
|00000760| 75 6d 3b 0d 09 66 6f 72 | 20 69 3a 3d 31 20 74 6f |um;..for| i:=1 to|
|00000770| 20 6e 75 6d 0d 09 64 6f | 20 3a 70 6f 6c 79 32 20 | num..do| :poly2 |
|00000780| 28 34 2c 6c 65 6e 2c 39 | 30 2c 61 6e 67 32 29 3b |(4,len,9|0,ang2);|
|00000790| 0d 09 65 6e 64 0d 65 6c | 73 65 20 3a 62 65 65 70 |..end.el|se :beep|
|000007a0| 28 29 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 63 43 |().-----|-----.cC|
|000007b0| 75 72 76 65 0d 2f 2f 3a | 63 43 75 72 76 65 20 28 |urve.//:|cCurve (|
|000007c0| 36 2c 38 2c 30 29 0d 2f | 2f 3a 63 43 75 72 76 65 |6,8,0)./|/:cCurve|
|000007d0| 20 28 38 2c 34 2c 30 29 | 0d 2f 2f 3a 63 43 75 72 | (8,4,0)|.//:cCur|
|000007e0| 76 65 20 28 74 69 6d 65 | 73 2c 64 69 73 74 2c 64 |ve (time|s,dist,d|
|000007f0| 65 67 29 0d 66 75 6e 63 | 28 6e 75 6d 2c 64 69 73 |eg).func|(num,dis|
|00000800| 74 2c 64 65 67 29 0d 69 | 66 20 6e 75 6d 3e 30 20 |t,deg).i|f num>0 |
|00000810| 2f 2f 20 77 61 72 6e 69 | 6e 67 20 6e 75 6d 3e 38 |// warni|ng num>8|
|00000820| 20 63 6f 75 6c 64 20 74 | 61 6b 65 20 61 77 68 69 | could t|ake awhi|
|00000830| 6c 65 2e 2e 2e 0d 74 68 | 65 6e 20 62 65 67 69 6e |le....th|en begin|
|00000840| 20 2f 2f 20 74 68 65 20 | 64 6f 75 62 6c 65 2d 72 | // the |double-r|
|00000850| 65 63 75 72 73 69 6f 6e | 20 28 6e 6f 74 20 61 20 |ecursion| (not a |
|00000860| 73 69 6d 70 6c 65 20 22 | 74 61 69 6c 20 72 65 63 |simple "|tail rec|
|00000870| 75 72 73 69 6f 6e 22 29 | 0d 09 3a 63 43 75 72 76 |ursion")|..:cCurv|
|00000880| 65 28 6e 75 6d 2d 31 2c | 20 64 69 73 74 2c 20 64 |e(num-1,| dist, d|
|00000890| 65 67 2b 34 35 29 3b 0d | 09 3a 63 43 75 72 76 65 |eg+45);.|.:cCurve|
|000008a0| 28 6e 75 6d 2d 31 2c 20 | 64 69 73 74 2c 20 64 65 |(num-1, |dist, de|
|000008b0| 67 2d 34 35 29 3b 0d 09 | 65 6e 64 0d 65 6c 73 65 |g-45);..|end.else|
|000008c0| 20 62 65 67 69 6e 20 2f | 2f 20 77 68 65 72 65 20 | begin /|/ where |
|000008d0| 74 68 65 20 61 63 74 75 | 61 6c 20 64 72 61 77 69 |the actu|al drawi|
|000008e0| 6e 67 20 6f 63 63 75 72 | 73 0d 09 3a 74 75 72 6e |ng occur|s..:turn|
|000008f0| 54 6f 28 64 65 67 29 3b | 0d 09 3a 67 6f 28 64 69 |To(deg);|..:go(di|
|00000900| 73 74 29 3b 0d 09 65 6e | 64 0d 2d 2d 2d 2d 2d 2d |st);..en|d.------|
|00000910| 2d 2d 2d 2d 0d 70 6f 6c | 79 73 70 69 0d 2f 2f 3a |----.pol|yspi.//:|
|00000920| 70 6f 6c 79 73 70 69 20 | 28 31 30 30 2c 31 30 2c |polyspi |(100,10,|
|00000930| 38 39 29 0d 2f 2f 3a 70 | 6f 6c 79 73 70 69 20 28 |89).//:p|olyspi (|
|00000940| 74 69 6d 65 73 2c 64 69 | 73 74 2c 64 65 67 29 0d |times,di|st,deg).|
|00000950| 66 75 6e 63 28 6e 75 6d | 2c 73 69 7a 65 2c 61 6e |func(num|,size,an|
|00000960| 67 6c 65 29 0d 62 65 67 | 69 6e 0d 09 6c 6f 63 61 |gle).beg|in..loca|
|00000970| 6c 20 69 3b 0d 09 66 6f | 72 20 69 3a 3d 31 20 74 |l i;..fo|r i:=1 t|
|00000980| 6f 20 6e 75 6d 0d 09 64 | 6f 20 62 65 67 69 6e 0d |o num..d|o begin.|
|00000990| 09 09 3a 67 6f 28 73 69 | 7a 65 29 3b 20 3a 74 75 |..:go(si|ze); :tu|
|000009a0| 72 6e 28 61 6e 67 6c 65 | 29 3b 0d 09 09 73 69 7a |rn(angle|);...siz|
|000009b0| 65 3a 3d 73 69 7a 65 2b | 31 3b 0d 09 09 65 6e 64 |e:=size+|1;...end|
|000009c0| 3b 0d 65 6e 64 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;.end.--|--------|
|000009d0| 0d 68 6f 75 73 65 0d 2f | 2f 3a 68 6f 75 73 65 20 |.house./|/:house |
|000009e0| 28 64 69 73 74 29 0d 66 | 75 6e 63 28 73 69 7a 65 |(dist).f|unc(size|
|000009f0| 29 0d 62 65 67 69 6e 0d | 20 20 6c 6f 63 61 6c 20 |).begin.|  local |
|00000a00| 64 68 74 20 3a 3d 20 73 | 69 7a 65 2f 34 2c 20 64 |dht := s|ize/4, d|
|00000a10| 77 69 64 20 3a 3d 20 73 | 69 7a 65 2f 38 3b 0d 20 |wid := s|ize/8;. |
|00000a20| 20 6c 6f 63 61 6c 20 77 | 73 69 7a 65 20 3a 3d 20 | local w|size := |
|00000a30| 64 77 69 64 3b 0d 20 20 | 3a 70 6f 6c 79 28 34 2c |dwid;.  |:poly(4,|
|00000a40| 73 69 7a 65 29 3b 0d 20 | 20 3a 74 75 72 6e 28 39 |size);. | :turn(9|
|00000a50| 30 29 3b 20 3a 67 6f 28 | 64 68 74 29 3b 20 3a 74 |0); :go(|dht); :t|
|00000a60| 75 72 6e 28 2d 39 30 29 | 3b 0d 20 20 3a 72 65 63 |urn(-90)|;.  :rec|
|00000a70| 74 28 64 68 74 2c 64 77 | 69 64 29 3b 20 2f 2f 20 |t(dht,dw|id); // |
|00000a80| 64 6f 6f 72 0d 20 20 3a | 6d 6f 76 65 28 33 2a 64 |door.  :|move(3*d|
|00000a90| 68 74 29 3b 0d 20 20 3a | 70 6f 6c 79 28 34 2c 77 |ht);.  :|poly(4,w|
|00000aa0| 73 69 7a 65 29 3b 20 2f | 2f 20 77 69 6e 64 6f 77 |size); /|/ window|
|00000ab0| 0d 20 20 3a 74 75 72 6e | 28 39 30 29 3b 20 3a 6d |.  :turn|(90); :m|
|00000ac0| 6f 76 65 28 73 69 7a 65 | 2f 32 29 3b 20 3a 74 75 |ove(size|/2); :tu|
|00000ad0| 72 6e 28 2d 39 30 29 3b | 0d 20 20 3a 70 6f 6c 79 |rn(-90);|.  :poly|
|00000ae0| 28 34 2c 77 73 69 7a 65 | 29 3b 20 2f 2f 20 77 69 |(4,wsize|); // wi|
|00000af0| 6e 64 6f 77 0d 65 6e 64 | 0d 2d 2d 2d 2d 2d 2d 2d |ndow.end|.-------|
|00000b00| 2d 2d 2d 0d 72 65 63 74 | 0d 66 75 6e 63 28 73 69 |---.rect|.func(si|
|00000b10| 64 65 31 2c 73 69 64 65 | 32 29 0d 62 65 67 69 6e |de1,side|2).begin|
|00000b20| 0d 09 6c 6f 63 61 6c 20 | 69 3b 0d 09 66 6f 72 20 |..local |i;..for |
|00000b30| 69 3a 3d 31 20 74 6f 20 | 32 0d 09 64 6f 20 62 65 |i:=1 to |2..do be|
|00000b40| 67 69 6e 0d 09 09 3a 67 | 6f 28 73 69 64 65 31 29 |gin...:g|o(side1)|
|00000b50| 3b 20 3a 74 75 72 6e 28 | 39 30 29 3b 0d 09 09 3a |; :turn(|90);...:|
|00000b60| 67 6f 28 73 69 64 65 32 | 29 3b 20 3a 74 75 72 6e |go(side2|); :turn|
|00000b70| 28 39 30 29 3b 0d 09 09 | 65 6e 64 3b 0d 65 6e 64 |(90);...|end;.end|
|00000b80| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 42 59 45 21 |.-------|---.BYE!|
|00000b90| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 02 6c | 00 00 01 6c 00 00 00 32 |.......l|...l...2|
|00000c10| f8 2c f8 f8 f7 50 f7 50 | f7 50 f7 50 f7 50 f7 50 |.,...P.P|.P.P.P.P|
|00000c20| f7 50 f7 50 f7 50 f7 f8 | f7 50 2c f7 f8 f7 81 fe |.P.P.P..|.P,.....|
|00000c30| 0c 67 72 61 70 68 69 63 | 30 2e 6e 77 74 68 02 00 |.graphic|0.nwth..|
|00000c40| 02 00 54 45 58 54 52 2a | 63 68 01 00 ff ff ff ff |..TEXTR*|ch......|
|00000c50| 02 00 54 45 58 54 52 2a | 63 68 01 00 ff ff ff ff |..TEXTR*|ch......|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 88 2b aa 7a c8 91 00 00 | 0b 11 00 00 02 9e f7 26 |.+.z....|.......&|
|00000c80| f7 26 f7 f7 49 f8 26 fd | f7 60 4a f7 49 f7 4a f7 |.&..I.&.|.`J.I.J.|
|00000c90| 26 f7 f7 26 f7 f7 26 f7 | f7 4a f7 f7 26 f7 f7 26 |&..&..&.|.J..&..&|
|00000ca0| f7 4a f7 26 f7 49 2c 4a | f7 50 ac f5 fb fa f7 fc |.J.&.I,J|.P......|
|00000cb0| ac ac fa f7 4a f7 26 f7 | 26 f7 f7 26 f7 f7 26 f7 |....J.&.|&..&..&.|
|00000cc0| f7 26 f7 f7 26 f7 f7 26 | f7 f7 26 f7 26 f7 f7 26 |.&..&..&|..&.&..&|
|00000cd0| f7 f7 26 f7 26 f7 f7 26 | f7 f7 26 f7 f7 26 f7 f7 |..&.&..&|..&..&..|
|00000ce0| 26 f7 f7 4a f7 26 f7 4a | f7 00 54 58 01 54 00 fc |&..J.&.J|..TX.T..|
|00000cf0| f7 00 49 f7 f7 05 2c f7 | f7 49 2c 49 fc f7 03 2b |..I...,.|.I,I...+|
|00000d00| 00 00 01 68 52 2a 63 68 | 02 50 00 29 00 03 02 39 |...hR*ch|.P.)...9|
|00000d10| 01 b4 00 18 00 00 00 13 | 00 00 00 13 00 00 00 00 |........|........|
|00000d20| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 03 00 | 00 03 00 00 00 48 00 48 |........|.....H.H|
|00000d70| 00 00 00 00 02 da 02 28 | ff e1 ff e1 02 f9 02 45 |.......(|.......E|
|00000d80| 03 47 05 28 03 fc 00 02 | 00 00 00 48 00 48 00 00 |.G.(....|...H.H..|
|00000d90| 00 00 02 da 02 28 00 01 | 00 00 00 64 00 00 00 01 |.....(..|...d....|
|00000da0| 00 01 01 01 00 00 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 68 08 00 19 01 90 |........|..h.....|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 08 00 00 |.......M|onaco...|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 04 | 01 00 00 01 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 01 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000e70| 00 00 02 6c 00 00 01 6c | 00 00 00 32 01 1a a5 08 |...l...l|...2....|
|00000e80| 0f cc 00 00 00 1c 00 32 | 00 00 42 42 53 52 00 00 |.......2|..BBSR..|
|00000e90| 00 0a 02 50 ff ff 00 00 | 00 00 01 1a a1 40 00 00 |...P....|.....@..|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+